home *** CD-ROM | disk | FTP | other *** search
/ The History of Denim / The History of Denim.iso / pc / _styles.dir / 00002_Utilities.ls < prev    next >
Encoding:
Text File  |  1997-11-14  |  1.9 KB  |  56 lines
  1. on menujump
  2.   global MouseMGR
  3.   set TestCoords to [rect(298, 7, 411, 127), rect(28, 103, 199, 251), rect(381, 301, 470, 379), rect(476, 62, 638, 164), rect(87, 318, 219, 398)]
  4.   set SectionList to ["Basic", "Stretch", "Baggy", "Flair", "Utility"]
  5.   puppetSprite(10, 0)
  6.   repeat with n = 1 to count(TestCoords)
  7.     if inside(point(the mouseH, the mouseV), getAt(TestCoords, n)) then
  8.       cursor([member "Wait", member "Waitmask"])
  9.       puppetSprite(10, 1)
  10.       set the rect of sprite 10 to getAt(TestCoords, n)
  11.       updateStage()
  12.       pauseit()
  13.       puppetSprite(10, 0)
  14.       updateStage()
  15.       go(getAt(SectionList, n))
  16.       set MouseMGR to EMPTY
  17.       cursor(0)
  18.       exit
  19.     end if
  20.   end repeat
  21. end
  22.  
  23. on pauseit
  24.   set startTimer to the ticks + 30
  25.   repeat while the ticks <= startTimer
  26.   end repeat
  27. end
  28.  
  29. on CursorRoll WhoAmi, Myrects
  30.   if the frontWindow = WhoAmi then
  31.     repeat with C = 1 to count(Myrects)
  32.       if inside(point(the mouseH, the mouseV), getAt(Myrects, C)) then
  33.         cursor([member "hand", member "handmask"])
  34.         next repeat
  35.       end if
  36.       cursor(0)
  37.     end repeat
  38.   end if
  39. end
  40.  
  41. on mouseDown
  42.   if the frameLabel = "Main" then
  43.     set MyTestrects to [rect(298, 7, 411, 127), rect(28, 103, 199, 251), rect(381, 301, 470, 379), rect(476, 62, 638, 164), rect(87, 318, 219, 398)]
  44.     set Myclickedrects to [rect(380, 99, 407, 127), rect(167, 219, 194, 247), rect(418, 348, 445, 376), rect(582, 134, 609, 162), rect(87, 320, 114, 348)]
  45.     set MyClickGRFX to ["styles_rivet_clicked", "styles_rivet_clicked", "styles_rivet_clicked", "styles_rivet_clicked", "styles_rivet_clicked"]
  46.     repeat with d = 1 to count(MyTestrects)
  47.       if inside(point(the mouseH, the mouseV), getAt(MyTestrects, d)) then
  48.         puppetSprite(50, 1)
  49.         set the memberNum of sprite 50 to member getAt(MyClickGRFX, d)
  50.         set the rect of sprite 50 to getAt(Myclickedrects, d)
  51.         updateStage()
  52.       end if
  53.     end repeat
  54.   end if
  55. end
  56.